home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / amicas / progs / asc / nibbles.txt < prev    next >
Encoding:
Text File  |  1998-03-04  |  2.6 KB  |  172 lines

  1. ViewWindow 1,127,127,1,63,63
  2. ClrText
  3. Cls
  4. Text 1,1,"NIBBLES     V:333     (C)SG'97":Text 10,1,"SCHWER  ->1":Text 17,1,"MITTEL  ->2":Text 24,1,"LEICHT  ->3"
  5. Text 40,1,"STEUERUNG MIT PFEILTASTEN"
  6. Text 48,1,"0 FUER PAUSE"
  7. Text 56,1,"EXIT FUER SCHLUSS"
  8. Do
  9. GetKey->A
  10. Text 32,1,"SCHWIERIGKEIT"
  11. Text 32,1,"               "
  12. LpWhile A<>72 And A<>62 And A<>52
  13. Int (A/10)-6->P
  14. 1->A~O
  15. 150->J:1->D
  16. 35->G~H
  17. Seq(X,X,1,136,1)->List 1
  18. Do
  19. Fill(9,List 1)
  20. List 1->List 2
  21. 1->D
  22. Cls
  23. Green Vertical 1
  24. Green Vertical 127
  25. Green Horizontal 1
  26. Green Horizontal 63
  27. Green Horizontal 54
  28. 1->A
  29. 0->B
  30. 0->L
  31. 3->E
  32. 1->F
  33. 1->I
  34. 30->M~N
  35. Text 4,4,"SCORE:"
  36. Text 4,70,"PIXELWERT":Text 4,114,I
  37. For P->C To 1
  38. For P->O To 1
  39. Orange PxlOn G+C,H+O
  40. Next
  41. Next
  42. D->D
  43. If D=2
  44. Then Green F-Line 30,30,90,30
  45. Else If D=3
  46. Then For 25->Q To 100 Step 25
  47. Green F-Line Q,15,Q,45
  48. Next
  49. Else If D=4
  50. Then Green F-Line 40,28,80,28:Green F-Line 30,15,30,40:Green F-Line 100,15,100,40:Green F-Line 30,15,60,15:Green F-Line 70,15,100,15:Green F-Line 30,40,60,40:Green F-Line 70,40,100,40
  51. Else If D=5
  52. Then For 1->Q To 127 Step 2
  53. Green PxlOn 45,Q
  54. Green PxlOn 25,Q
  55. Next
  56. Else If D=6
  57. Then F-Line 64,1,64,24
  58. F-Line 63,26,63,54
  59. F-Line 1,24,62,24
  60. F-Line 66,25,127,25
  61. Else If D=7
  62. Then F-Line 30,30,60,40
  63. F-Line 52,41,69,21
  64. F-Line 40,20,10,20
  65. F-Line 20,40,20,10
  66. F-Line 60,69,21,41
  67. 4->D
  68. IfEnd
  69. IfEnd
  70. IfEnd
  71. IfEnd
  72. IfEnd
  73. Do
  74. J-1->J
  75. M+A->M
  76. N+B->N
  77. If J<=0
  78. Then Locate 1,1,"HUNGERTOD"
  79. ClrList
  80. Stop
  81. IfEnd
  82. For P->C To 1
  83. If M=(H+C)
  84. Then For P->O To 1
  85. If N=(G+O)
  86. Then For P->C To 1
  87. For P->O To 1
  88. PxlOff G+C,H+O
  89. Next
  90. Next
  91. Do
  92. 0->Q
  93. 12+Int (48Ran#)->G:12+Int (110Ran#)->H
  94. For P->C To 1
  95. For P->O To 1
  96. PxlTest G+C,H+O
  97. If Ans=1
  98. Then 1->Q
  99. IfEnd
  100. Next
  101. Next
  102. LpWhile Q=1
  103. For P->C To 1
  104. For P->O To 1
  105. Orange PxlOn G+C,H+O
  106. Next
  107. Next
  108. J+200->J
  109. For E+1->Q To E+3I
  110. 9->List 1[Q]
  111. 9->List 2[Q]
  112. Next
  113. 3I+E->E
  114. I+1->I
  115. If I=9
  116. Then D+1->D
  117. 700+J->J
  118. 1->L
  119. Else Text 4,114,I
  120. IfEnd
  121. IfEnd
  122. Next
  123. IfEnd
  124. Next
  125. PxlTest N,M
  126. If Ans=1
  127. Then 1->L
  128. 0->D
  129. IfEnd
  130. If F>=E
  131. Then 1->F
  132. Else 1+F->F
  133. IfEnd
  134. PxlOff List 1[F],List 2[F]
  135. N->List 1[F]
  136. M->List 2[F]
  137. Blue PxlOn N,M
  138. GetKey->K
  139. If K=27
  140. Then 1->A:0->B
  141. Else If K=38
  142. Then (-)1->A:0->B
  143. Else If K=28
  144. Then 0->A:(-)1->B
  145. Else If K=37
  146. Then 0->A:1->B
  147. Else If K=71
  148. Then Do
  149. Text 4,4,"PAUSE EXE FUER WEITER"
  150. Text 4,4,"                              "
  151. LpWhile GetKey<>31
  152. Text 4,4,"SCORE:"
  153. Text 4,70,"PIXELWERT"
  154. Text 4,114,I
  155. IfEnd:IfEnd:IfEnd:IfEnd:IfEnd
  156. If Frac (J/10)=0
  157. Then Text 4,30,"     "
  158. Text 4,30,J*(P+2)
  159. IfEnd
  160. LpWhile (K<>47) And (L<>1)
  161. LpWhile (D<>0) And (K<>47)
  162. If K<>47
  163. Then Locate 1,1,"ANGESTOSSEN"
  164. Else Locate 1,1,"ABBRUCH"
  165. IfEnd
  166. ClrList
  167. Locate 1,2,"PUNKTE:"
  168. Locate 8,2,J*(P+2)
  169. Locate 1,4,"AC DRUECKEN UM AUFZU(-)"
  170. Locate 1,5,"HOEREN"
  171. Locate 1,6,"EXE DRUEKEN UM"
  172. Locate 1,7,"NOCHMAL ZU SPIELEN"